#!/usr/bin/perl

my $line;
my @array = ();

open(INPUTNETFILE, "<cross_need_check_net.log");
while (<INPUTNETFILE>)
{
    $line = $_;
    $line =~ m/recordid=(.*?), /;
    push(@array, $+);
}
close(INPUTNETFILE);

open(INPUTFILE, "<cross_need_check.log");
LOOP: while (<INPUTFILE>)
{
    $line = $_;
    $line =~ m/recordid=(.*?), /;

    for my $i (0..$#array) {
        next LOOP if ($array[$i] eq $+);
    }

    print("$line");
}
close(INPUTFILE);

